home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Grafik / AmiCAD / ARexx_english / Zoom.AmiCAD < prev   
Text File  |  1998-06-17  |  630b  |  23 lines
  1. /* Not really a zoom program, but it works... */
  2. /* © R.Florac, 3 Mars 1998, version 1.1e */
  3.  
  4. options results
  5.  
  6. signal on error     /* error handling */
  7. signal on syntax
  8.  
  9. 'SCREENMODE=SCRMODE:FONT=FONTNAME(SELSHEET(-1)):FONT_SIZE=FONTSIZE(SELSHEET(-1))'
  10. 'SCREENHEIGHT=SHEIGHT:SCREENWIDTH=SWIDTH:WINDOW_WIDTH=MESURE(2):WINDOW_HEIGHT=MESURE(3):X_LEFT=MESURE(0):Y_TOP=MESURE(1)'
  11.  
  12. 'SCREEN(135168,320,256,"topaz.font",8)'
  13. exit
  14.  
  15. syntax:
  16. erreur=RC
  17. 'MESSAGE("Script Zoom.AmiCAD"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  18. exit
  19.  
  20. error:
  21. 'MESSAGE("Script Zoom.AmiCAD"+CHR(10)+"Error in line 'SIGL'")'
  22. exit
  23.